Precision Software Appli…tions Silver Collection 1/Precision Software Applications Silver Collection Volume One (PSM) (1993).iso/tutor/clipper.exe/DEFIB.PRG

Text File | 1985-07-02 | 4KB | 142 lines

set talk off
clear
Set Color To w+/
* Do ScrBoard
* PROCEDURE SCRBOARD
  clear
  @ 1,0 SAY "╔══════════════════════════════════════════════════════════════════════════════╗"
  @ 2,0 SAY "║"
  @ 2,79 SAY "║"
  @ 3,0 SAY "╚══════════════════════════════════════════════════════════════════════════════╝"
  @ 4,0 SAY "┌──────────────────────────────────────────────────────────────────────────────┐"
  @ 5,0 SAY "│"
  @ 5,79 SAY "│"
  @ 6,0 SAY "│"
  @ 6,79 SAY "│"
  @ 7,0 SAY "│"
  @ 7,79 SAY "│"
  @ 8,0 SAY "│"
  @ 8,79 SAY "│"
  @ 9,0 SAY "│"
  @ 9,79 SAY "│"
  @ 10,0 SAY "│"
  @ 10,79 SAY "│"
  @ 11,0 SAY "│"
  @ 11,79 SAY "│"
  @ 12,0 SAY "│"
  @ 12,79 SAY "│"
  @ 13,0 SAY "│"
  @ 13,79 SAY "│"
  @ 14,0 SAY "│"
  @ 14,79 SAY "│"
  @ 15,0 SAY "│"
  @ 15,79 SAY "│"
  @ 16,0 SAY "│"
  @ 16,79 SAY "│"
  @ 17,0 SAY "│"
  @ 17,79 SAY "│"
  @ 18,0 SAY "│"
  @ 18,79 SAY "│"
  @ 19,0 SAY "├──────────────────────────────────────────────────────────────────────────────┤"
  @ 20,0 SAY "│"
  @ 20,79 SAY "│"
  @ 21,0 SAY "└──────────────────────────────────────────────────────────────────────────────┘"
* RETURN
@ 6,0   SAY "├──────────────────────────────────────────────────────────────────────────────┤"
@ 17,0  SAY "├──────────────────────────────────────────────────────────────────────────────┤"
@ 19,0  SAY "│"
@ 19,1 Say Space(78)
@ 19,79 SAY "│"
@ 6,60  SAY "┬"
@ 7,60  SAY "│"
@ 8,60  SAY "│"
@ 9,60  SAY "│"
@ 10,60 SAY "│"
@ 11,60 SAY "│"
@ 12,60 SAY "│"
@ 13,60 SAY "│"
@ 14,60 SAY "│"
@ 15,60 SAY "│"
@ 16,60 SAY "│"
@ 17,60 SAY "┴"
@ 6,15  SAY "┬"
@ 7,15  SAY "│"
@ 8,15  SAY "│"
@ 9,15  SAY "│"
@ 10,15 SAY "│"
@ 11,15 SAY "│"
@ 12,15 SAY "│"
@ 13,15 SAY "│"
@ 14,15 SAY "│"
@ 15,15 SAY "│"
@ 16,15 SAY "│"
@ 17,15 SAY "┴"
@ 6,45  SAY "┬"
@ 7,45  SAY "│"
@ 8,45  SAY "│"
@ 9,45  SAY "│"
@ 10,45 SAY "│"
@ 11,45 SAY "│"
@ 12,45 SAY "│"
@ 13,45 SAY "│"
@ 14,45 SAY "│"
@ 15,45 SAY "│"
@ 16,45 SAY "│"
@ 17,45 SAY "┴"
@ 6,30  SAY "┬"
@ 7,30  SAY "│"
@ 8,30  SAY "│"
@ 9,30  SAY "│"
@ 10,30 SAY "│"
@ 11,30 SAY "│"
@ 12,30 SAY "│"
@ 13,30 SAY "│"
@ 14,30 SAY "│"
@ 15,30 SAY "│"
@ 16,30 SAY "│"
@ 17,30 SAY "┴"
Set Color To gr+/
@ 2,10 Say '  d B A S E - I I I   .and.   C l i p p e r  ....  [50 Fibs]  '
Set Color To b+/
@ 6,07 Say ' 10 '
@ 6,22 Say ' 20 '
@ 6,37 Say ' 30 '
@ 6,52 Say ' 40 '
@ 6,67 Say ' 50 '
Set Color To r+/
@ 18,3 Say 'This program calculates the first fifty numbers in the Fibanacci Series. '
@ 19,3 Say 'The principal is that the last two numbers equal the next number and so on.'
@ 5,3 Say 'Times ... Started :- '
@ 5,37 Say 'Finished :- '
@ 5,62 Say 'Seconds :- '
Set Color To g+/
@ 5,24 Say Time()
Start_Sec = (Val(Substr(Time(),1,2))*3600) + (Val(Substr(Time(),4,2))*60) + Val(Substr(Time(),7,2))
Fib1      =  1
Fib2      =  1
mcount    =  3
Offset    = 15
Set Color To bg+/
@ 7,1 Say Fib1 Pict '99,999,999,999'
@ 8,1 Say Fib2 Pict '99,999,999,999'
Do While mcount <= 50
  Do While mcount <= ((Offset/15) * 10)
    Temp = (Fib1 + Fib2)
    Fib1 = Fib2
    Fib2 = Temp
    mcount = Mcount + 1
    @ ((mcount-((Offset/15)*10))+15) ,(Offset-14) Say Fib2 Pict '99,999,999,999'
  Enddo
  Offset = Offset + 15
Enddo
Seconds = ((Val(Substr(Time(),1,2))*3600) + (Val(Substr(Time(),4,2))*60) + Val(Substr(Time(),7,2))) - Start_Sec
Set Color To g+/
@ 5,49 Say Time()
@ 5,73 Say Str(Seconds,2)
Set Color To gr+/,w+/gr
Resp = ' '
@ 20,3 Say 'Press ANYKEY for Main Menu ' Get Resp
Read
Clear Gets
Return